home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
FINDCHRS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
1KB
|
35 lines
(* Chapter 8 - Program 4 *)
program Find_All_Lower_Case_Characters;
const String_Size = 30;
type Low_Set = set of 'a'..'z';
var Data_Set : Low_Set;
Storage : string[String_Size];
Index : 1..String_Size;
Print_Group : string[26];
begin (* main program *)
Data_Set := [];
Print_Group := '';
Storage := 'This is a set test.';
for Index := 1 to Length(Storage) do begin
if Storage[Index] in ['a'..'z'] then begin
if Storage[Index] in Data_Set then
Writeln(Index:4,' ',Storage[Index],
' is already in the set')
else begin
Data_Set := Data_Set + [Storage[Index]];
Print_Group := Print_Group + Storage[Index];
Writeln(Index:4,' ',Storage[Index],
' added to group, complete group = ',
Print_Group);
end;
end
else
Writeln(Index:4,' ',Storage[Index],
' is not a lower case letter');
end;
end. (* of main program *)